home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_d
/
qrep097a.zip
/
SIMPREP.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1996-01-13
|
2KB
|
69 lines
unit Simprep;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Quickrep, DB, DBTables, StdCtrls, ExtCtrls;
type
TSimpForm = class(TForm)
SimpRep: TQuickReport;
TitleBand: TQRBand;
Image1: TImage;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
DetailBand: TQRBand;
Table1: TTable;
DataSource1: TDataSource;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRLabel3: TQRLabel;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
PageFooterBand: TQRBand;
QRSysData1: TQRSysData;
QRShape1: TQRShape;
QRBand1: TQRBand;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRBand2: TQRBand;
QRGroup1: TQRGroup;
Table1Company: TStringField;
Table1CustNo: TFloatField;
Table1Addr1: TStringField;
Table1Addr2: TStringField;
Table1City: TStringField;
Table1State: TStringField;
Table1Zip: TStringField;
Table1Country: TStringField;
Table1Phone: TStringField;
Table1FAX: TStringField;
Table1TaxRate: TFloatField;
Table1Contact: TStringField;
Table1LastInvoiceDate: TDateTimeField;
procedure QRGroup1NeedData(var Value: OpenString);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SimpForm: TSimpForm;
implementation
{$R *.DFM}
procedure TSimpForm.QRGroup1NeedData(var Value: OpenString);
begin
Value:=Copy(Table1Company.value,1,1);
end;
end.